home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 August
/
Ahoy_Magazine_87-08_1987_Double_L_Side_A.d64
/
Free 'N Easy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
403b
|
11 lines
10 printchr$(147)"loading data";:forj=700to753:reada:ifa<0ora>255then30
20 pokej,a:x=x+a:print".";:nextj:print:print:ifx=5958then40
30 print"error in data...":end
40 print"the data is loaded,":print
50 print"sys 700 to activate and deactivate...":end
60 data169,208,162,2,236,1,3,208,4,169,139,162
70 data227,141,0,3,142,1,3,96,173,0,2,201
80 data95,240,3,76,139,227,206,0,2,164,52,165
90 data51,56,229,49,176,1,136,170,152,56,229,50
100 data32,205,189,76,116,164